home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tppcx.zip / EGA.INT < prev    next >
Text File  |  1991-01-28  |  1KB  |  30 lines
  1.  {══════════════════════════════════════════════════════════════════════════╗
  2.  ║ MDRUtils/Mark D.Rafn  [71530,2307]                                       ║
  3.  ║ Rt1 Box138A                                                              ║
  4.  ║ Two Harbors, MN 55616                                                    ║
  5.  ║ 218-834-5154                                                             ║
  6.  ║                                                                          ║
  7.  ║ Unit for programming the EGA graphics adapter.                           ║
  8.  ║ Must be in graphics mode.                                                ║
  9.  ╚══════════════════════════════════════════════════════════════════════════}
  10. {$D-,R-,S-}
  11. unit EGA;
  12. interface
  13. uses Graph;
  14.  
  15. const
  16.   EGACard: boolean = false;
  17.   VGACard: boolean = false;
  18.   EGA_Pal: PaletteType = (
  19.     Size: 16;
  20.     Colors: (0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) );
  21.  
  22.   procedure EGA_SetPlane_Write( plane: byte );
  23.   procedure EGA_SetPlane_Read( Plane: byte );
  24.   procedure EGA_Reset_Write;
  25.   procedure EGA_Reset_Read;
  26.   procedure EGA_ResetPalette;
  27.   procedure EGA_SetRGBPalette( cn, red, green, blue: integer );
  28.  
  29. implementation
  30.